function [a, x, y] = Remes1(n, f, nrapel)
%	Functia care calculeaza polinomul minmax al unei functii.
%
%	Date de intrare:
%		- n -> gradul polinomului minimax;
%		- f -> functia aproximata prin polinomul minimax;
%		- nrapel-> o constanta care, daca este 0, afla polinomul minmax.
%
%	Date de iesire:
%		- a -> vectorul ce contine coeficentii polinomului minmax;
%		- x -> vectorul ce contine abscisele considerate( util in cadrul algoritmului Remes2);
%		- y -> vectorul ce contine coordonatele considerate.

if (nrapel == 0)
	for k = 1:n+2
		x(k) = cos( (k - 1)*pi/( n + 1));
		y(k) = f( x(k));
		z(k) = ( -1 ) ^ ( k - 1 );
	endfor
	r = coefLagr1( x, y);
	s = coefLagr1( x, z);
	E = r(n + 2)/s( n + 2);
	for k = 1:n+2
		a(k) = r(k) - E * s(k);
	endfor
endif
endfunction
